home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #41 (1989-11-05)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #41 (1989-11-05)(Amiga User Gruppe Einzugsgebiet 4000).adf / Hilfen / NLQed V1.0 / Kyrillisch (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-11-04  |  2KB  |  56 lines
  1. REM ########################################################################
  2. REM #                                                                      #
  3. REM #                        WISSoft präsentiert                           #
  4. REM #                                                                      #
  5. REM #                         N L Q  e d   V1.0                            #
  6. REM #                                                                      #
  7. REM #               NLQ-Druckzeichen-Editor fuer STAR LC-10                #
  8. REM #                                                                      #
  9. REM #                    (c) 1989 by Roland S. Speth                       #
  10. REM #                                                                      #
  11. REM ########################################################################
  12.  
  13. REM Autor:  Roland S. Speth, Am Listholze 2, D-3000 Hannover 1, West Germany
  14.  
  15. CLEAR ,50000
  16. WINDOW 2,"*** NLQed ***************************",(1,1)-(300,60),16
  17.  
  18. Dateiname$="kyrillisch5"
  19.  
  20. COLOR 2,1: CLS
  21. COLOR 2: LOCATE 2,3: PRINT "Der NLQed schickt den Zeichensatz"
  22. COLOR 3: LOCATE 4,3: PRINT SPACE$(INT(16.5-LEN(Dateiname$)/2))+Dateiname$
  23. COLOR 2: LOCATE 6,3: PRINT "      an Deinen STAR LC-10."
  24.  
  25. DIM code(78,46),ascii(78)
  26.  
  27. Laden:
  28.    OPEN Dateiname$ FOR INPUT AS #2
  29.    FOR n%=1 TO 78
  30.       INPUT #2,ascii(n%)
  31.       FOR Index%=0 TO 46
  32.          INPUT #2,code(n%,Index%)
  33.       NEXT Index%
  34.    NEXT n%
  35.    CLOSE #2
  36.    
  37. Drucken:
  38.    OPEN "par:" FOR OUTPUT AS #1 LEN=1
  39.    PRINT #1,CHR$(27);"x1";
  40.    PRINT #1,CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);
  41.  
  42.    FOR n%=78 TO 1 STEP -1
  43.       PRINT #1,CHR$(27);"&";CHR$(0);CHR$(ascii(n%));CHR$(ascii(n%));
  44.       FOR Index%=0 TO 46
  45.          PRINT #1,CHR$(code(n%,Index%));
  46.       NEXT Index%
  47.    NEXT n%
  48.    PRINT #1,""
  49.    PRINT #1,CHR$(27);"%1";
  50.    
  51. Ende:
  52.    WINDOW CLOSE 2
  53.    CLOSE
  54.    END
  55.    
  56.